home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
progs
/
thor
/
cygnused
/
previewmsg.ced
< prev
next >
Wrap
Text File
|
1996-11-10
|
762b
|
31 lines
/* PreviewMsg.ced by Michael Røstad Ilsaas
** $VER: PreviewMsg.ced v1.1 (08.07.96)
**
** An ARexx script that shows you (in THOR's messagetext listview)
** what your message will look like when read by others in THOR.
** CygnusEd-version. Original FSE version by Troels Walsted Hansen
*/
options results
p = ' ' || address() || ' ' || show('P',,)
thorport = pos(' THOR.',p)
if thorport > 0 then thorport = word(substr(p,thorport+1),1)
/* preview msg text in THOR */
"beg of file"
mark
"end of file"
copy
save clip as "t:PreviewMsg.temp.file"
address(thorport)
THORTOFRONT
SHOWTEXT 't:PreviewMsg.temp.file'
if(rc ~= 0) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
/* cleanup and exit */
address command 'delete >nil: t:PreviewMsg.temp.file'
exit